* lisp/gnus/mm-uu.el (mm-uu-org-src-code-block-extract):

Say the handle is already decoded.
cf. <yw.87lgnh5cfv.fsf@alex.chromebook> in the info-gnus-english list.

diff --git a/lisp/gnus/mm-uu.el b/lisp/gnus/mm-uu.el
index 10cdeed3fbbb2d30daad1c089875618653a29a7b..177589c5f03df30af298385c0e936efcda3b166b 100644 (file)
--- a/lisp/gnus/mm-uu.el
+++ b/lisp/gnus/mm-uu.el
@@ -393,7 +393,7 @@ apply the face `mm-uu-extract'."
 
 (defun mm-uu-org-src-code-block-extract ()
   (mm-make-handle (mm-uu-copy-to-buffer start-point end-point)
-                  '("text/x-org")))
+                 '("text/x-org" (charset . gnus-decoded))))
 
 (defvar gnus-newsgroup-name)